--whichLine is a wholeNumber and whichFld is the short name of a fld.
if whichLine = empty OR whichFld = empty then exit selectLine
put line whichLine of fld whichFld into theText
if theText <> empty then
put (number of chars of line 1 to whichLine of fld whichFld) + 1 into endChar
select char (endChar - length (theText)) to endChar of fld whichFld
wait 5
end if
end selectLine
on updateDocuments newPaths
--Updates the global documents. The newPaths parameter is optional,
--and is paths that need to be added to the Documents card in the
--Home stack.
if cantModify of this stack then exit updateDocuments
global documents
lock screen
set lockRecent to true
set lockMessages to true
push cd
go home
go cd "documents"
if the result <> empty then
--the Documents card in the Home stack doesn't appear to exist.
dialogIt "The stack is having trouble locating the" && "Documents card in the Home stack. Consequently, the stack" && "may have trouble finding the original graphics."
pop cd
exit updateDocuments
else
--the Documents card in the Home stack was found.
if newPaths <> empty then put return & newPaths after fld "paths"
put fld "paths" into documents
end if
put fld "paths" into documents
pop cd
end updateDocuments
on checkDocuments newPaths
--Checks the document paths in this stack against the global
--documents. Discrepencies are put into newPaths and sent to the
--handler updateDocuments to be added to the Documents card in the
--Home stack. NewPaths is optional, and allows you to add paths to
--the storage in this stack.
global documents
put cd fld "paths to graphics" of cd "title card" into existPaths
if newPaths <> empty then
repeat with N = 1 to the number of lines in newPaths
if not isWithin(line N of newPaths,existPaths) then
put return & line N of newPaths after existPaths
end if
end repeat
put existPaths into cd fld "paths to graphics" of cd "title card"
end if
put empty into newPaths
repeat with i = 1 to the number of lines in existPaths
if not isWithin(line i of existPaths,documents) then
put return & line i of existPaths after newPaths
end if
end repeat
if newPaths <> empty then updateDocuments newPaths
end checkDocuments
on deleteEntryVisible boolean
if boolean then
put "Click an entry in the list to delete it." into fld "directions to delete"
else
set hilite of bg btn "done" to true
set hilite of bg btn "done" to false
end if
lock screen
set visible of fld "directions to delete" to boolean
set visible of bg btn "done" to boolean
unlock screen
if not boolean then put empty into fld "directions to delete"
end deleteEntryVisible
on showNew newGraphics,text
put sortContainer(newGraphics) into theList
get listDialog(theList,13,text,false,"OK")
end showNew
on showExisting theList
put "These cards already existed and weren't added." into text
get listDialog(theList,13,text,false,"OK")
end showExisting
on showHelp boolean
lock screen
set the showPict of this card to not(boolean)
set the visible of fld "banner" to boolean
set the visible of bg btn "Help Section" to boolean
return ((the mouseV - item 2 of the rect of whichField - 4) div the textheight of whichField) + 1
end lineClicked
function cardPictureExists
--returns true if a card picture exists
put the userLevel into userStatus
if the userLevel < 3 then set the userLevel to 3
put the tool into toolStatus
choose select tool
doMenu "select"
if the tool = "lasso tool" then
--a card picture does exist
put true into thisText
else
--no card picture exists
put false into thisText
end if
choose toolStatus
set the userLevel to userStatus
return thisText
end cardPictureExists
function readIndex writeField
return cd fld writeField of cd "title card"
end readIndex
function isEPN whichContainer
if char 1 of whichContainer is in "0123456789" OR (char 1 to 2 of whichContainer = "pX") OR (char 1 to 2 of whichContainer = "pM") OR (char 1 to 3 of whichContainer = "k2s") OR (char 1 to 3 of whichContainer = "pGE") OR (char 1 to 3 of whichContainer = "kmb") OR (char 1 to 4 of whichContainer = "APDA") OR (char 1 to 5 of whichContainer = "m5116") then return true
return false
end isEPN
function isFigNo whichContainer
if char 1 to 3 of whichContainer = "fig" OR char 1 to 2 of whichContainer = "pg" OR char 1 to 3 of whichContainer = "pge" OR char 1 to 5 of whichContainer = "panel" then return true
return false
end isFigNo
function linesVisible whichFld
--returns the number of lines that are visible in a field.
return round(height of whichFld/the textHeight of whichFld)
end linesVisible
function beginEntryLine entryNumber
--this function is used by the Add This Graphic button and the
--Remove # button.
if entryNumber < 10 then return space & space
if entryNumber < 100 then return space
if entryNumber < 1000 then return empty
end beginEntryLine
function isEvenNumber whatString
--returns true if the given string is an even number.
if not positiveWholeNumber(whatString) then return false
if whatString mod 2 = 0 then return true
return false
end isEvenNumber
-- part 391 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=8 top=8 right=27 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Menu blanket
-- part 374 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=240 top=50 right=337 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 200
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Info Blanket
-- part 371 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=247 top=104 right=251 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: List
----- HyperTalk script -----
on mouseUp
global listScroll, entryPrefix
set cursor to busy
put clickLine(the name of me) into whichLine
selectLine whichLine, "list"
lock screen
put line whichLine of fld "list" into findThis
if findThis is empty then exit mouseUp
if (whichLine/2) = trunc(whichLine/2) then
-- user selected a file name
put line whichLine of fld "list" into uniqueNumber
else
-- user selected a name
put line (whichLine+1) of fld "list" into uniqueNumber
end if
-- get rid of extra characters
delete char 1 to (the number of chars in entryPrefix) of uniqueNumber
find whole uniqueNumber in fld "file name field"
if the foundText is empty then
dialogIt "The file name " & quote & uniqueNumber & quote && "is not assigned to any graphic."
exit mouseUp
end if
set scroll of fld "list" to listScroll
unlock screen with visual effect wipe left
end mouseUp
-- part 359 (button)
-- low flags: 00
-- high flags: 4006
-- rect: left=248 top=29 right=49 bottom=411
-- title width / last selected line: 0
-- icon id / first selected line: 17764 / 17764
-- text alignment: 1
-- font id: 200
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Graphics View
----- HyperTalk script -----
on mouseUp
changeView "graphics view"
end mouseUp
-- part 293 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=419 top=29 right=49 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 17764 / 17764
-- text alignment: 1
-- font id: 200
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lists View
----- HyperTalk script -----
on mouseUp
changeView "lists view"
end mouseUp
-- part 216 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=59 top=314 right=334 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 200
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Card 1 of 2013
----- HyperTalk script -----
on mouseUp
send findCdNumber to bg btn "find…"
end mouseUp
-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=26 top=313 right=335 bottom=44
-- title width / last selected line: 0
-- icon id / first selected line: 23716 / 23716
-- text alignment: 1
-- font id: 200
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Prev
----- HyperTalk script -----
on mouseDown
global ticksToWait
if the commandKey is down then
send setBrowseSpeed to bg btn "management"
exit mouseDown
end if
set hilite of me to true
go prev cd of this bg
repeat while the mouse is down
put (the ticks + ticksToWait) into stopTicks
repeat until stopTicks < (the ticks)
if the mouse is up then
set hilite of me to false
exit mouseDown
end if
end repeat
go prev cd of this bg
end repeat
set hilite of me to false
end mouseDown
-- part 29 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=244 top=124 right=218 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 200
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Keywords field
----- HyperTalk script -----
on mouseUp
put line clickLine(the name of me) of me into whichText
if fld "file name field" = empty then doMenu "delete card"
return newGraphics
end copyTextToStack
on collectIDs
go first cd of this bg
put "Collecting File Names" into status
repeat with j = 1 to the number of cds in this bg
showProgress status,round(j/(the number of cds in this bg)*100)
set cursor to busy
put fld "file name field" & return after listOfIDs
go next cd of this bg
end repeat
hideProgress
return listOfIDs
end collectIDs
on compareIDs dataStackIDs, shellStack
go shellStack
go bg "the collection"
put 1 into i
put empty into alreadyExists
put "Comparing File Names" into status
repeat with j = 1 to the number of lines in dataStackIDs
showProgress status,round(j/(the number of lines in dataStackIDs)*100)
set cursor to busy
find whole (line i of dataStackIDs) in fld "file name field"
if the foundField = empty then
--this file name needs to be added to the shell stack
add 1 to i
else
--this file name already exists in the shell stack
put line i of dataStackIDs & return after alreadyExists
delete line i of dataStackIDs
end if
end repeat
hideProgress
if alreadyExists <> empty then showExisting alreadyExists
return dataStackIDs
end compareIDs
on createShell
global activeListName
dialogIt "Delete all cards in this background except for one?","Cancel,OK"
if the result = "Cancel" then exit createShell
toggleLockScreen
lock screen
set lockMessages to true
set lockRecent to true
go first cd of this bg
choose select tool
drag from 0,0 to 300,300
doMenu "Clear Picture"
choose browse tool
put empty into fld "description field"
put empty into fld "file name field"
put empty into fld "format field"
put empty into fld "keywords field"
put empty into fld "appears in books field"
go next cd of this bg
put the number of cds in this bg into N
put (N - 1) into deleteThisMany
if deleteThisMany > 0 then
put "Deleting cards" into status
repeat with i = 1 to deleteThisMany
showProgress status,round(i/N*100)
set cursor to busy
if the short name of this bg = "The Collection" then
doMenu "delete card"
end if
end repeat
hideProgress
end if
go cd "title card"
if the result <> empty then answer the result else
repeat with i = 1 to the number of cd flds
put empty into cd fld i
end repeat
end if
put "Untitled" into activeListName
go bg "The Collection"
doMenu "compact stack"
setCdNo
end createShell
-- part 163 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=128 top=32 right=55 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 200
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Graphic
----- HyperTalk script -----
on mouseUp
displayPicture
end mouseUp
-- part 217 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=145 top=282 right=306 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 200
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
doMenu "quit hypercard"
end mouseUp
-- part 238 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=94 top=282 right=306 bottom=146
-- title width / last selected line: 0
-- icon id / first selected line: 7516 / 7516
-- text alignment: 1
-- font id: 200
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Help
----- HyperTalk script -----
--PASTE THE HELP FUNCTIONS OVER THE EXISTING FUNCTIONS IN THIS SCRIPT
on mouseUp
global cardMenu, catalogMenu, managementMenu, indexesMenu
showHelp (not the visible of fld "banner")
displayHelp "Banner"
set cursor to 16
repeat
--if they have one of these keys down, it may indicate they
--are a bit confused or just want to move on, so exit.
if the commandKey is down then
cleanExit
exit repeat
end if
if the optionKey is down then
cleanExit
exit mouseUp
end if
if the mouse is down then
--the user clicked somewhere
put the mouseLoc into userLoc
if item 1 of userLoc < 0 OR item 1 of userLoc > 512 OR item 2 of userLoc < -15 OR item 2 of userLoc > 345
then
--you clicked outside of the card
cleanExit
exit mouseUp
end if
--menus
if userLoc is within the rect of bg btn "Card" then
menuHelp cardMenu, "Card"
end if
if userLoc is within the rect of bg btn "catalog" then
menuHelp catalogMenu, "catalog"
end if
if userLoc is within the rect of bg btn "Management" then
menuHelp ManagementMenu, "Management"
end if
if userLoc is within the rect of bg btn "Indexes" then
menuHelp indexesMenu, "Indexes"
end if
--btns whose names may change or have names that HyperTalk
--doesn't like
if userLoc is within the rect of bg btn id 216 then
displayHelp "Card Number Btn"
end if
if userLoc is within the rect of bg btn id 353 then
displayHelpByID "list Name","353"
end if
if userLoc is within the rect of bg btn id 313 then
displayHelpBtn "Delete #…"
end if
--help objects
if userLoc is within the rect of fld "banner" then
displayHelpFld "banner"
end if
if userLoc is within the rect of bg btn "Help Close" OR userLoc is within the rect of bg btn "help" then
cleanExit
exit mouseUp
end if
if userLoc is within the rect of bg btn "Help Section" then
displayHelp "banner"
end if
if the mouseLoc is within the rect of bg btn "Help Close" OR the mouseLoc is within the rect of bg btn "Help" then
set cursor to arrow
end if
--other btns
repeat with i = 1 to the number of bg btns
if userLoc is within the rect of bg btn i then
--check for all of the exceptions
put id of bg btn i into thisID
put the short name of bg btn i into thisName
--check to see if there is help on this button
if the short name of bg btn i = "info blanket" OR thisID = 216 OR thisID = 353 OR thisID = 313 OR thisName = "Card" OR thisName = "catalog" OR thisName = "management" OR thisName = "indexes" OR thisName = "lists view" or thisName = "graphics view" OR thisName = "menu blanket" then next repeat
else
--there is help on this button
displayHelpBtn (the short name of bg btn i)
end if
end if
end repeat
--flds
repeat with i = 1 to the number of bg flds
if userLoc is within the rect of fld i then
displayHelpFld (the short name of fld i)
end if
end repeat
set cursor to 16
end if
end repeat
end mouseUp
on displayHelpByID messageText,btnId
if the visible of bg btn id btnId then displayHelp messageText
else exit displayHelpByID
end displayHelpByID
on displayHelpFld messageText
if the visible of fld messageText then displayHelp messageText
else exit displayHelpFld
end displayHelpFld
on displayHelpBtn messageText
if the visible of bg btn messageText then displayHelp messageText
else exit displayHelpBtn
end displayHelpBtn
on displayHelp messageText
put messageText into helpFunction
put substitute("#","",helpFunction) into helpFunction
put substitute(":","",helpFunction) into helpFunction
put substitute("…","",helpFunction) into helpFunction
put substitute(" ","",helpFunction) into helpFunction
put "()" after helpFunction
do "get" && helpFunction
put it into fld "banner"
end displayHelp
on cleanExit
set the icon of bg btn "Help Close" to 3358
showHelp false
set the icon of bg btn "Help Close" to 3071
put empty into fld "banner"
end cleanExit
on menuHelp menu, btnName
if the visible of bg btn btnName is false then exit menuHelp
return "Build Thumbnail replaces any existing thumbnail sketch on the current card and pastes a new thumbnail sketch." & return
end BuildThumbnail
function AboutThisGraphic
return "About This Graphic displays information about the current graphic (for example, it’s description, file name, keywords, etc.). " & return
end AboutThisGraphic
function Lists
return "Lists displays the open list and hides information about the current graphic." & return &return &"To add graphics to the open list, click Add This Graphic. To save a list, click Save. To go to a graphic in the list, click its entry in the list." & return
end Lists
function AssignKeyword
return "Assign Keyword enables you to select an existing keyword or keywords to assign to the current graphic." & return
end AssignKeyword
function AssignBook
return "Assign Book enables you to select an existing book to assign to the current graphic." & return
end AssignBook
function CardNumberBtn
return "This button gives you information about your location in the stack. Click it as a short-cut to using Find to locate a card by its number." & return
end CardNumberBtn
function Quit
return "Quit closes the stack and leaves HyperCard." & return
end Quit
function Find
return "Click Find to search for graphics by different criteria (for example, File Name, Format, Keywords, etc.)" & return
end Find
function Delete
return "Click Delete # to delete entries from the open list." & return &return &"After you click Delete #,click on the list entries you want to remove. When you are finished deleting entries, click Done." & return
end Delete
function NewList
return "New List opens a new, empty list named Untitled. If another list is already open, the stack closes it " & return &"(after prompting you to save changes) before opening a new list. Only one list can be open at a time." & return &return &"To add items to the list, click Add This Graphic to List (or press control-A). " & return
end NewList
function ListName
return "This is the name of the open list." & return
end ListName
function ListHeadingField
return "This is the heading that describes the contents of the list." & return
end ListHeadingField
function DeleteList
return "Delete List erases the list that you specify. Click Delete List when you no longer need a particular list." & return
end DeleteList
function PrintList
return "Print List prints the open list. You can print a list along with the thumbnail sketches of the list items, or print just the text of the list (the descriptions and file name of the items)." & return
end PrintList
function Save
return "Save saves a list to disk." & return
end Save
function FileName
return "Click File Name as a short-cut to clicking Find and searching for graphics by File Name." & return
end FileName
function FileNameField
return "Each graphic file is stored referred to in this stack is stored as a separate file. The name of this file is displayed in the File Name field." & return
end FileNameField
function List
return "The List field displays the open list. Click an entry in the list to go to that graphic." & return
end List
function AppearsInBooks
return "Click Appears In Books as a short-cut to clicking Find and searching for graphics by book." & return
end AppearsInBooks
function AppearsInBooksField
return "The Appears in Books field displays the books (along with the books’ Engineering Part Numbers) in which this graphic appears." & return &return &"Click any of the books (or Engineering Part Numbers) to search through graphics from that book." & return
end AppearsInBooksField
function Keywords
return "Click Keywords as a short-cut to clicking Find and searching for graphics by keyword." & return &return &return
end Keywords
function KeywordsField
return "The Keywords field displays the keywords assigned to describe this graphic." & return &return &"Click any of the keywords to search through graphics with that keyword." & return &return
end KeywordsField
function Description
return "Click Description as a short-cut to clicking Find and searching for graphics by description." & return
end Description
function DescriptionField
return "The Description field displays the description of this graphic." & return &return &"Click this field to search through graphics with the description of the current graphic." & return
end DescriptionField
function Format
return "Click Format as a short-cut to clicking Find and searching for graphics by format." & return
end Format
function FormatField
return "The Format field displays the file format (or file type) of this graphic. " & return &return &"Click this field to search through graphics that are stored in the same format as the current graphic." & return
end FormatField
function AddThisGraphic
return "Add This Graphic puts the description and file name of the current graphic at the end of the open list. You can add up to 50 graphics to a list. As a short-cut to clicking this button, press control-A." & return &return &"You can continue to add graphics to the list, even if the list is hidden (as it is when information about the current graphic is visible)." & return
end AddThisGraphic
function OpenList
return "Open List enables you to open a list you have saved. If another list is already open, the stack closes it " & return &"(after prompting you to save changes) before opening the specified list. Only one list can be open at a time." & return
end OpenList
function CatalogVolume
return "Choose Catalog Volume to catalog all of the graphics on a volume (or disk). For each graphic found on the volume, a card is created in the" & return &" stack, the thumbnail is created, and the file name, file type, and file path are put into the appropriate fields." & return
end CatalogVolume
function CatalogFolder
return "Choose Catalog Folder to catalog all of the within a specified folder. For each graphic found in the folder, a card is created in the" & return &" stack, a thumbnail is created, and the file name, file type, and file path are put into the appropriate fields." & return
end CatalogFolder
function CatalogFile
return "Choose Catalog File to catalog a specified file. If the file is stored in an acceptable file format, a card is created in the stack, a thumbnail is " & return &"created, and the file name, file type, and file path are put into the appropriate fields." & return
end CatalogFile
function SetBrowsingSpeed
return "Set Browsing Speed lets you change the speed of browsing and searching through graphics. " & return
end SetBrowsingSpeed
function ImportData
return "Import Data allows you to add the graphics and text from a specified stack to the end of the open stack." & return
end ImportData
function SortbyFileName
return "Sort by File Name sorts the graphic cards by their file name." & return
end SortbyFileName
function DeleteData
return "Delete Data deletes all but one of the cards in the background The Collection. On the remaining card, the thumbnail is removed and the fields are emptied." & return
end DeleteData
function BuildKeywordIndex
return "Build Keyword Index goes to every graphics card and collects all of the assigned keywords. The keywords are sorted and stored on the Title Card." & return
end BuildKeywordIndex
function BuildBookIndex
return "Build Book Index goes to every graphics card and collects all of the assigned books. The books are sorted and stored on the Title Card." & return
end BuildBookIndex
function AddtoKeywordIndex
return "Add to Keyword Index allows you to add new keywords to the Keyword Index." & return
end AddtoKeywordIndex
function DeleteKeyword
return "Delete Keyword enables you to delete a keyword from the current card." & return
end DeleteKeyword
function DeleteBook
return "Delete Book enables you to delete a book from the current card." & return
end DeleteBook
function DeletefromKeywordIndex
return "Delete from Keyword Index enables you to delete a term from this index. After you select a term or terms, the stack finds each instance in the appropriate field" & return &" and confirms that you want to delete this term from this card. (To avoid the confirmation dialog box, hold down the Option key.)" & return
end DeletefromKeywordIndex
function AddtoBookIndex
return "Add to Book Index allows you to add new books to the Book Index." & return
end AddtoBookIndex
function DeletefromBookIndex
return "Delete from Book Index enables you to delete a term from this index. After you select a term or terms, the stack finds each instance in the appropriate field" & return &" and confirms that you want to delete this term from this card. (To avoid the confirmation dialog box, hold down the Option key.)" & return &return
end DeletefromBookIndex
function ExportKeywordIndex
return "Export Keyword Index creates a text file of all keywords assigned to graphics." & return
end ExportKeywordIndex
function ExportBookIndex
return "Export Book Index creates a text file of all books assigned to graphics." & return
end ExportBookIndex
function Next
return "This is the Next Card button. Click it to see the next card in the stack, or click and hold down the mouse button to browse through the cards." & return &return &"To change the browsing speed of the stack, hold down the Command key and click the Next Card button or the Previous Card button." & return
end Next
function Prev
return "This is the Previous Card button. Click it to see the previous card in the stack, or click and hold down the mouse button to browse through the cards. " & return &return &"To change the browsing speed of the stack, hold down the Command key and click the Next Card button or the Previous Card button." & return &return
end Prev
function OpenGraphic
return "Click Open Graphic to see the original (full-size) version of the graphic on the current card." & return &return &"Once the original grahic is open, you can copy or print all, or a selection of, the graphic." & return
end OpenGraphic
function Banner
return return &" Welcome to the Help Section" & return &return &"• Use the Help cursor (the question" & return &" mark) to click buttons and fields" & return &" to find out about them." & return &return &"• To leave Help and return to the " & return &" graphics, click the close box " & return &" of this panel." & return &return
end Banner
function HelpSection
return return &" Welcome to the Help Section" & return &return &"• Use the Help cursor (the question" & return &" mark) to click buttons and fields" & return &" to find out about them." & return &return &"• To leave Help and return to the " & return &" graphics, click the close box " & return &" of this panel." & return &return
end HelpSection
return "Build Thumbnail replaces any existing thumbnail sketch on the current card and pastes a new thumbnail sketch." & return
end BuildThumbnail
function AboutThisGraphic
return "About This Graphic displays information about the current graphic (for example, it’s description, file name, keywords, etc.). " & return
end AboutThisGraphic
function Lists
return "Lists displays the open list and hides information about the current graphic." & return &return &"To add graphics to the open list, click Add This Graphic. To save a list, click Save. To go to a graphic in the list, click its entry in the list." & return
end Lists
function AssignKeyword
return "Assign Keyword enables you to select an existing keyword or keywords to assign to the current graphic." & return
end AssignKeyword
function AssignBook
return "Assign Book enables you to select an existing book to assign to the current graphic." & return
end AssignBook
function CardNumberBtn
return "This button gives you information about your location in the stack. Click it as a short-cut to using Find to locate a card by its number." & return
end CardNumberBtn
function Quit
return "Quit closes the stack and leaves HyperCard." & return
end Quit
function Find
return "Click Find to search for graphics by different criteria (for example, File Name, Format, Keywords, etc.)" & return
end Find
function Delete
return "Click Delete # to delete entries from the open list." & return &return &"After you click Delete #,click on the list entries you want to remove. When you are finished deleting entries, click Done." & return
end Delete
function NewList
return "New List opens a new, empty list named Untitled. If another list is already open, the stack closes it " & return &"(after prompting you to save changes) before opening a new list. Only one list can be open at a time." & return &return &"To add items to the list, click Add This Graphic to List (or press control-A). " & return
end NewList
function ListName
return "This is the name of the open list." & return
end ListName
function ListHeadingField
return "This is the heading that describes the contents of the list." & return
end ListHeadingField
function DeleteList
return "Delete List erases the list that you specify. Click Delete List when you no longer need a particular list." & return
end DeleteList
function PrintList
return "Print List prints the open list. You can print a list along with the thumbnail sketches of the list items, or print just the text of the list (the descriptions and file name of the items)." & return
end PrintList
function Save
return "Save saves a list to disk." & return
end Save
function FileName
return "Click File Name as a short-cut to clicking Find and searching for graphics by File Name." & return
end FileName
function FileNameField
return "Each graphic file is stored referred to in this stack is stored as a separate file. The name of this file is displayed in the File Name field." & return
end FileNameField
function List
return "The List field displays the open list. Click an entry in the list to go to that graphic." & return
end List
function AppearsInBooks
return "Click Appears In Books as a short-cut to clicking Find and searching for graphics by book." & return
end AppearsInBooks
function AppearsInBooksField
return "The Appears in Books field displays the books (along with the books’ Engineering Part Numbers) in which this graphic appears." & return &return &"Click any of the books (or Engineering Part Numbers) to search through graphics from that book." & return
end AppearsInBooksField
function Keywords
return "Click Keywords as a short-cut to clicking Find and searching for graphics by keyword." & return &return &return
end Keywords
function KeywordsField
return "The Keywords field displays the keywords assigned to describe this graphic." & return &return &"Click any of the keywords to search through graphics with that keyword." & return &return
end KeywordsField
function Description
return "Click Description as a short-cut to clicking Find and searching for graphics by description." & return
end Description
function DescriptionField
return "The Description field displays the description of this graphic." & return &return &"Click this field to search through graphics with the description of the current graphic." & return
end DescriptionField
function Format
return "Click Format as a short-cut to clicking Find and searching for graphics by format." & return
end Format
function FormatField
return "The Format field displays the file format (or file type) of this graphic. " & return &return &"Click this field to search through graphics that are stored in the same format as the current graphic." & return
end FormatField
function AddThisGraphic
return "Add This Graphic puts the description and file name of the current graphic at the end of the open list. You can add up to 50 graphics to a list. As a short-cut to clicking this button, press control-A." & return &return &"You can continue to add graphics to the list, even if the list is hidden (as it is when information about the current graphic is visible)." & return
end AddThisGraphic
function OpenList
return "Open List enables you to open a list you have saved. If another list is already open, the stack closes it " & return &"(after prompting you to save changes) before opening the specified list. Only one list can be open at a time." & return
end OpenList
function CatalogVolume
return "Choose Catalog Volume to catalog all of the graphics on a volume (or disk). For each graphic found on the volume, a card is created in the" & return &" stack, the thumbnail is created, and the file name, file type, and file path are put into the appropriate fields." & return
end CatalogVolume
function CatalogFolder
return "Choose Catalog Folder to catalog all of the within a specified folder. For each graphic found in the folder, a card is created in the" & return &" stack, a thumbnail is created, and the file name, file type, and file path are put into the appropriate fields." & return
end CatalogFolder
function CatalogFile
return "Choose Catalog File to catalog a specified file. If the file is stored in an acceptable file format, a card is created in the stack, a thumbnail is " & return &"created, and the file name, file type, and file path are put into the appropriate fields." & return
end CatalogFile
function SetBrowsingSpeed
return "Set Browsing Speed lets you change the speed of browsing and searching through graphics. " & return
end SetBrowsingSpeed
function ImportData
return "Import Data allows you to add the graphics and text from a specified stack to the end of the open stack." & return
end ImportData
function SortbyFileName
return "Sort by File Name sorts the graphic cards by their file name." & return
end SortbyFileName
function DeleteData
return "Delete Data deletes all but one of the cards in the background The Collection. On the remaining card, the thumbnail is removed and the fields are emptied." & return
end DeleteData
function BuildKeywordIndex
return "Build Keyword Index goes to every graphics card and collects all of the assigned keywords. The keywords are sorted and stored on the Title Card." & return
end BuildKeywordIndex
function BuildBookIndex
return "Build Book Index goes to every graphics card and collects all of the assigned books. The books are sorted and stored on the Title Card." & return
end BuildBookIndex
function AddtoKeywordIndex
return "Add to Keyword Index allows you to add new keywords to the Keyword Index." & return
end AddtoKeywordIndex
function DeleteKeyword
return "Delete Keyword enables you to delete a keyword from the current card." & return
end DeleteKeyword
function DeleteBook
return "Delete Book enables you to delete a book from the current card." & return
end DeleteBook
function DeletefromKeywordIndex
return "Delete from Keyword Index enables you to delete a term from this index. After you select a term or terms, the stack finds each instance in the appropriate field" & return &" and confirms that you want to delete this term from this card. (To avoid the confirmation dialog box, hold down the Option key.)" & return
end DeletefromKeywordIndex
function AddtoBookIndex
return "Add to Book Index allows you to add new books to the Book Index." & return
end AddtoBookIndex
function DeletefromBookIndex
return "Delete from Book Index enables you to delete a term from this index. After you select a term or terms, the stack finds each instance in the appropriate field" & return &" and confirms that you want to delete this term from this card. (To avoid the confirmation dialog box, hold down the Option key.)" & return &return
end DeletefromBookIndex
function ExportKeywordIndex
return "Export Keyword Index creates a text file of all keywords assigned to graphics." & return
end ExportKeywordIndex
function ExportBookIndex
return "Export Book Index creates a text file of all books assigned to graphics." & return
end ExportBookIndex
function Next
return "This is the Next Card button. Click it to see the next card in the stack, or click and hold down the mouse button to browse through the cards." & return &return &"To change the browsing speed of the stack, hold down the Command key and click the Next Card button or the Previous Card button." & return
end Next
function Prev
return "This is the Previous Card button. Click it to see the previous card in the stack, or click and hold down the mouse button to browse through the cards. " & return &return &"To change the browsing speed of the stack, hold down the Command key and click the Next Card button or the Previous Card button." & return &return
end Prev
function OpenGraphic
return "Click Open Graphic to see the original (full-size) version of the graphic on the current card." & return &return &"Once the original grahic is open, you can copy or print all, or a selection of, the graphic." & return
end OpenGraphic
function Banner
return return &" Welcome to the Help Section" & return &return &"• Use the Help cursor (the question" & return &" mark) to click buttons and fields" & return &" to find out about them." & return &return &"• To leave Help and return to the " & return &" graphics, click the close box " & return &" of this panel." & return &return
end Banner
function HelpSection
return return &" Welcome to the Help Section" & return &return &"• Use the Help cursor (the question" & return &" mark) to click buttons and fields" & return &" to find out about them." & return &return &"• To leave Help and return to the " & return &" graphics, click the close box " & return &" of this panel." & return &return
end HelpSection
-- part 274 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=124 top=8 right=27 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Indexes
----- HyperTalk script -----
on mouseDown
global indexesMenu
get menuPop(the name of me)
put item 1 of it into menuT
put item 2 of it into menuL
get BigPop(indexesMenu,menuT,menuL)
put it into theChoice
if theChoice = 1 then buildIndex "keywords field","Keyword Index"
if theChoice = 2 then addToIndex "keyword","Keyword Index"
if theChoice = 3 then deleteFromIndex "Keywords field","Keyword Index"
